1 REM  ***      C E S A R       ***
2 REM  ***  EDMUND WISNIEWSKI   ***
3 POKE56,40:POKE657,128:POKE808,225
4 IFA=0THENA=1:LOAD"C.GR",8,1
5 POKE53281,8:POKE53280,0
6 DATA120,169,51,133,1,169,0,133,95,133,90,133,88,169,208,133,96,169,240,133
7 DATA89,169,224,133,91,32,191,163,169,55,133,1,88,96
8 FORI=832TO865:READQ:POKEI,Q:NEXT:SYS832:N$="EDMUND WISNIEWSKI"
9 POKE56576,PEEK(56576)AND252:POKE53272,8:POKE648,192:SYS13660
10 PRINT"[147][158]               C E S A R [158]               "
11 C1=23:C2=7:GOSUB107:PRINT"1990 BY   "N$
12 IFA=1THENA=2:LOAD"C.SP",8,1
13 V=53248:SX=830:OP=19989:OT=19990:SI=54272
14 A=RND(-TI):PRINT"[147]":SYS13393
15 PRINT"[147][144]       [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][158]"
16 FORI1=1TO4
17 FORI2=1TO2
18 PRINT"[144]      [167][158]   [146]      [146]      [146]      [146]   [144][165]"
19 NEXT
20 FORI2=1TO2
21 PRINT"[144]      [167][158]      [146]      [146]      [146]      [146][144][165]"
22 NEXT
23 NEXT
24 PRINT"[144]       [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
25 PRINT"        A  B  C  D  E  F  G  H "
26 C1=21:C2=0:GOSUB107:PRINT"[158][213][192][192][192][192][192][192][192][192][178][192][192][192][192][192][192][192][192][178][192][192][192][192][192][192][192][192][178][192][192][192][192][192][192][192][192][192][192][192][201]";
27 C1=22:GOSUB107:PRINT"[221]  ZUG:  [221]  BEST: [221] TIEFE: [221]  EINGABE: [221]";
28 C1=23:GOSUB107:PRINT"[221]        [221]        [221]        [221]           [221]";
29 C1=24:GOSUB107:PRINT"[202][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192]"
30 POKE50151,75:POKE56295,7
31 C1=1:FORT=8TO1STEP-1:C1=C1+2:C2=3:GOSUB107:PRINTT:NEXT:PRINT"[158]"
32 POKE50168,17:POKE50169,18:POKE50170,19:POKE50171,20:POKE50172,21
33 POKEV+28,0:POKEV+16,255:POKEV+21,255
34 FORT=0TO4:POKEV+39+T,2:NEXT
35 POKEV+0,45:POKEV+2,45:POKEV+4,45:POKEV+6,45:POKEV+8,45
36 POKEV+1,65:POKEV+3,95:POKEV+5,125:POKEV+7,155:POKEV+9,185
37 POKE20020,0:POKE20039,1:POKE19994,0:POKE20040,3
38 FORT=0TO40:POKE19950+T,0:NEXT:POKEOT,0
39 SYS12528:PRINT"[146]":GOTO41
40 POKE20020,PEEK(20020)+2
41 C1=23:C2=31:GOSUB107:PRINT"[146]..-.. [157][157][157][157][157][157]";
42 F1=1:GOSUB76:F1=0
43 IFX1$="L"THEN72
44 IFX1$="M"THEN60
45 IFX1$="N"THEN95
46 IFX1$=""THEN41
47 IFX1$="X"THEN108
48 C2=32:GOSUB81:IF X2$="" THEN41
49 V=VAL(X2$)*10+10+ASC(X1$)-64:POKE19997,V
50 C2=33:GOSUB107:PRINT"-.[157]";
51 C2=34:GOSUB76:IF X1$="" THEN41
52 C2=35:GOSUB81:IFX2$="" THEN41
53 V=VAL(X2$)*10+10+ASC(X1$)-64:POKE19998,V
54 SYS13158
55 IFPEEK(12011)<>0THENGOSUB87:GOTO41
56 GOSUB96
57 IFPEEK(19999)=52THENGOSUB99
58 PRINT"[158]";:SYS12050:PRINT"[146]";
59 POKE20039,(1-PEEK(20039))
60 SYS15100:GOSUB143:AX=PEEK(20047)
61 IFPEEK(OP)=1THEN71
62 IFPEEK(19994)=1 THEN90
63 IFAX>=254ORAX<=1THEN91
64 IFAX=253ORAX=2THENPRINT"[158]":SYS12050:PRINT"":GOTO91
65 IFPEEK(20039)=0THEN69
66 IFAX<16THENGOSUB88
67 IFAX>246THENX=254/2-(AX/2)+.5:GOSUB86
68 GOTO71
69 IFAX<16THENX=AX/2:GOSUB86:GOTO71
70 IFAX>246THENGOSUB88
71 PRINT"[158]";:SYS12050:PRINT"";:POKE20039,(1-PEEK(20039)):GOTO40
72 C2=31:GOSUB107:PRINT"L     [157][157][157][157]"PEEK(20040)"[157]";
73 GETX$:IF X$<CHR$(49) OR X$>CHR$(56) THEN73
74 PRINT"[157]"X$;:FORT=1TO2000:NEXT
75 POKE20040,VAL(X$):GOTO41
76 GETX1$:IF F1=0 THEN78
77 IF X1$="L" OR X1$="M" OR X1$="N" ORX1$="X" THEN80
78 IF X1$="" THENRETURN
79 IF X1$<CHR$(65) OR X1$>CHR$(72) THEN76
80 GOSUB 107:PRINTX1$".[157]";:RETURN
81 GETX2$:IF X2$="" THENRETURN
82 IF X2$<CHR$(49) OR X2$>CHR$(56) THEN81
83 GOSUB107:PRINTX2$;
84 RETURN
85 PRINT"          EINGABEFEHLER":Y=3000:GOTO89
86 PRINT"          MATT IN";X;"ZUEGEN":Y=5000:GOTO89
87 PRINT"          ILLEGALER ZUG":Y=3000:GOTO89
88 PRINT"          ICH GEBE AUF":Y=5000
89 FORT=1TOY:NEXT:PRINT"                            ":RETURN
90 X1$="PATT":GOTO92
91 X1$="MATT"
92 C1=0:C2=16:GOSUB107:PRINTX1$:FORT=1TO1000:NEXT
93 GETX$:IFX$=""THEN93
94 C1=0:C2=16:GOSUB107:PRINT"    "
95 PRINT"[158]":SYS13393:GOTO37
96 IFPEEK(OT)>18THENRETURN
97 POKE19950+PEEK(OT),PEEK(19997):POKE19968+PEEK(OT),PEEK(19998)
98 POKEOT,PEEK(OT)+1:RETURN
99 X$="":C2=36:GOSUB107:PRINT".[157]";
100 GETX$
101 IFX$="D"THENX=52:GOTO106
102 IFX$="T"THENX=48:GOTO106
103 IFX$="S"THENX=44:GOTO106
104 IFX$="L"THENX=40:GOTO106
105 GOTO100
106 POKE19999,X:PRINTX$;:RETURN
107 POKE214,C1:POKE211,C2:SYS58640:RETURN
108 PRINT" N[146]: WEISS     S[146]: BAUER      L[146]: LOESCHEN"
109 C1=23:C2=31:GOSUB107:PRINT"   ..";
110 FA=0:SE=1
111 GETV$:IFV$=""THEN111
112 IFV$="L"THEN124
113 IFV$="N"THENFA=10-FA:GOSUB139:GOTO111
114 IFV$="S"THEN128
115 IFV$="X"THEN141
116 IFV$<CHR$(65)ORV$>CHR$(72)THEN111
117 C1=23:C2=34:GOSUB107:PRINTV$;
118 GETV2$:IFV2$=""THEN118
119 IFV2$<CHR$(49)ORV2$>CHR$(56)THEN118
120 C2=35:GOSUB107:PRINTV2$;
121 Z1=ASC(V$)-44:Z2=(ASC(V2$)-48)*10-10
122 IFSE=0ANDFA=10THENSE=-10
123 POKE830+Z1+Z2,SE+FA:V$="":GOTO127
124 FORI1=20TO90STEP10
125 FORI2=1TO8
126 POKESX+I1+I2,0:NEXTI2,I1
127 PRINT"[158]":SYS12528:PRINT"":GOTO111
128 SE=SE+1:IFSE=7THENSE=0
129 ONSE+1GOSUB132,133,134,135,136,137,138
130 PRINT"";D$
131 GOTO111
132 D$="NULL    ":RETURN
133 D$="BAUER   ":RETURN
134 D$="TURM    ":RETURN
135 D$="SPRINGER":RETURN
136 D$="LAEUFER ":RETURN
137 D$="DAME    ":RETURN
138 D$="KOENIG  ":RETURN
139 IFFA=0THENPRINT"WEISS  ":RETURN
140 PRINT"SCHWARZ":RETURN
141 PRINT"                                       ";
142 POKEOT,40:POKE20039,ABS(SGN(FA-10)):GOTO41
143 FORT1=1TO2
144 POKESI+24,8:POKESI+5,25:POKESI+6,20:POKESI+1,16:POKESI,20:POKESI+4,17
145 FORT2=0TO200:NEXT:POKESI+4,0:NEXT:RETURN
0